home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe94 < prev    next >
Text File  |  2007-02-28  |  679b  |  32 lines
  1. 0010 PRINT CHR$(147) //CLEAR SCREEN//
  2. 0020 //
  3. 0030 FOR NO:=1 TO 5 DO
  4. 0040 GAME
  5. 0050 PRINT 
  6. 0060 ENDFOR NO
  7. 0070 PRINT 
  8. 0080 PRINT "NOW I'M TIRED OF THIS GAME!"
  9. 0090 //
  10. 0100 PROC GAME 
  11. 0110 THINKOF:=RND(1,6)
  12. 0120 TRYGUESS
  13. 0130 ENDPROC GAME
  14. 0140 //
  15. 0150 PROC TRYGUESS 
  16. 0160 REPEAT 
  17. 0170 PRINT "WHAT NUMBER DO I THINK OF (1..6)",
  18. 0180 INPUT GUESS
  19. 0190 PRINT 
  20. 0200 IF GUESS=THINKOF THEN
  21. 0210 PRINT "YES, I WAS THINKING OF ",THINKOF
  22. 0220 PRINT "WAS IT HARD TO GUESS?"
  23. 0230 FOR I:=1 TO 3 DO PRINT 
  24. 0240 PRINT "!----------------------------------!"
  25. 0250 ELSE 
  26. 0260 PRINT "NO, THAT IS NOT RIGHT,"
  27. 0270 PRINT "TRY AGAIN!"
  28. 0280 ENDIF 
  29. 0290 UNTIL GUESS=THINKOF
  30. 0300 ENDPROC TRYGUESS
  31. 0310 //
  32.